Option Explicit
Sub A_Sample030()
    Dim myRng(1 To 3) As Range
    Dim myRng1        As Range
    Dim i             As Long
    Set myRng(1) = Range("A1:C5")		'Nxsd
    Set myRng(2) = Rows("3:6")
    Set myRng(3) = Columns("E:G")
    'ǳƨ즹
    For i = 1 To 3
        If myRng1 Is Nothing Then
            Set myRng1 = myRng(i)
        Else
            Set myRng1 = Union(myRng1, myRng(i))
        End If
    Next
    MsgBox myRng1.Address
    Set myRng1 = Nothing		'
    Erase myRng
End Sub
